* auth-source.el (auth-source-format-prompt): Don't get confused by any "\"

in replacement text.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 89e8f12729fe7d0aa2b439f3c4354f29d1c96423..4ce16be9d2af41719373021770991a50d98ef85f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-07  Gábor Vida  <gabor.v.vida@ericsson.com>  (tiny change)
+
+       * auth-source.el (auth-source-format-prompt): Don't get confused by
+       any "\" in replacement text.  (Bug#13637)
+
 2012-12-27  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-summary-resend-message): Don't bug out on

diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 6e6c74509f09c93dce1a6d9b4d4b1c4c1cda8f8c..ffc6a4b78af206d26ca42b8d0e701c91cf6a114a 100644 (file)
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -913,7 +913,7 @@ while \(:host t) would find all host entries."
       (when (and c v)
         (setq prompt (replace-regexp-in-string (format "%%%c" c)
                                                (format "%s" v)
-                                               prompt)))))
+                                               prompt nil t)))))
   prompt)
 
 (defun auth-source-ensure-strings (values)